home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / New Stuffed Files / RefSystem.SIT / Index / background_2731.txt < prev    next >
Encoding:
Text File  |  1988-10-08  |  2.5 KB  |  102 lines
  1. -- background: 2731 from stack: in
  2. -- bmap block id: 3140
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=0 top=32 right=317 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: Index
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get clickLine(the style of me)
  23.   put line it of me into cardName
  24.   if cardName is not empty then
  25.     --select the whole line to show choice
  26.     get offset(return & cardName,me) + 1
  27.     select char it to length(cardName) + it of me
  28.     wait 30
  29.     --set cursor to watch
  30.     --visual barn door open
  31.     --go to card <your card name>
  32.     select empty  --Remove this line, for demonstration only.
  33.   else
  34.     exit mouseUp
  35.   end if
  36. end mouseUp
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: A003
  42. -- rect: left=136 top=320 right=342 bottom=241
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Rebuild Index
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   global indexCard,sourceCard,refCard
  54.   put the long name of this card into indexCard
  55.   lock screen
  56.   set cursor to 4
  57.   put empty into background field Index
  58.   go to refCard
  59.   go to first card
  60.   put the long name of this card into sourceCard
  61.   repeat with i=1 to the number of cards
  62.     put background field "Title" into title
  63.     put background field "Author" into author
  64.     put the id of this card into idNumber
  65.     go to indexCard
  66.     if title is not empty then
  67.       put "ΓÇó Card " & i & " ΓÇó" & return after background field Index
  68.       put "ΓÇ£" & title & "ΓÇ¥" & return after background field Index
  69.       put "By:" & return after background field Index
  70.       put author & return after background field Index
  71.       put return after background field Index
  72.     end if
  73.     go to sourceCard
  74.     go to next card
  75.     put the long name of this card into sourceCard
  76.   end repeat
  77.   go to indexCard
  78.   set the scroll of background field Index to 0
  79.   unlock screen
  80. end mouseUp
  81.  
  82.  
  83. -- part 3 (button)
  84. -- low flags: 00
  85. -- high flags: 8003
  86. -- rect: left=261 top=320 right=342 bottom=361
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Exit Index
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   global refCard
  98.   visual iris close
  99.   go to refCard
  100. end mouseUp
  101.  
  102.